Warning: Found less unique colors (9) than unique zcol values (151)!
Interpolating color vector to match number of zcol values.
Customize your pop-ups
mypopup <- glue::glue("<strong>{tx_counties_withgeo$NAM}</strong><br /> Total Population: {tx_counties_withgeo$totalpop}<br /> Median Age: {tx_counties_withgeo$medage}") %>%lapply(htmltools::HTML)
head(mypopup)
[[1]]
<strong>Burnet County, Texas</strong><br />
Total Population: 48424<br />
Median Age: 44.7
[[2]]
<strong>Calhoun County, Texas</strong><br />
Total Population: 20367<br />
Median Age: 37.9
[[3]]
<strong>Moore County, Texas</strong><br />
Total Population: 21494<br />
Median Age: 30.6
[[4]]
<strong>Grimes County, Texas</strong><br />
Total Population: 28878<br />
Median Age: 40.4
[[5]]
<strong>Bosque County, Texas</strong><br />
Total Population: 18275<br />
Median Age: 46.3
[[6]]
<strong>Walker County, Texas</strong><br />
Total Population: 76506<br />
Median Age: 35.9